0 PRINT"[147] LARACTERS":Q=159:DIMQ$(Q),C$(16):PRINTCHR$(14):GOSUB8:GOTO90
1 PRINT"";:FORI=0TOV:PRINT"";:NEXT:FORI=0TOH:PRINT"";:NEXT:RETURN
2 FORI=0TO3:FORJ=1TO4:H$=MID$(Q$(C),I*4+J,1):GOSUB5:PRINTC$(H+D*(2*H-15));
3 NEXT:PRINT"[157][157][157][157]";:NEXT:PRINT"[145][145][145][145]";:K=K+1:IFK>9THENK=0:PRINT"";
4 RETURN
5 H=0:FORH1=1TOLEN(H$):H9=ASC(MID$(H$,H1))-48:H=H*16+H9+(H9>9)*7:NEXT:RETURN
6 FORW=1TOLEN(X$):C=ASC(MID$(X$,W))-64:C=C-(C<0)*64:GOSUB2:NEXT
7 RETURN
8 POKE53280,0:POKE53281,0:RETURN
90 FORI=0TO15:C$(I)=MID$("[146] [146][190][146][188][162][146][187][146][161][191][172][146][172][146][191][161][187][146][162][188][190] ",I*2+1,2):NEXT
91 FORI=0TO159:READQ$(I):NEXT
100 PRINT" REVERSED ";:INPUTD$:D=-1:IFD$<>"Y"THEND=0
101 PRINT"[147]";:FORC=0TO159:GOSUB2:NEXT
10000 DATA0634A89524300231,0690ACC5A0052001,27340DC105052330,0634A00024040230
10001 DATA2790050505812310,A331AC40A0002331,A331AC40A0002000,0634A0C424050230
10002 DATAA005ACC5A0052001,0270005000500230,00B100A080A00310,A081AC10A0902001
10003 DATAA000A000A0002331,A485AA55A0052001,A405A245A0252001,0690A00524810210
10004 DATAA334ACC1A0002000,0690A00524910211,A334ACC1A0902001,83342CC080050330
10005 DATA0371005000500010,A005A005A0050330,A005248109600210,A005A845A6952001
10006 DATAA005096081242001,050509C100500010,2335086081002331,0730050005000330
10007 DATA8000090000900001,03B000A000A00330,0040067400500050,0000060027330200
10008 DATA0000000000000000,0050005000000010,05A0012000000000,05A027B127B10120
10009 DATA08D409D00CD10010,8404216006842021,83402C10A0910311,0060020000000000
10010 DATA00600A0002400020,0900005008100100,04540EF406740010,00400CD400500000
10011 DATA0000000000400810,00008CC400000000,0000000008400210,0004006006002000
10012 DATA8334A865A1050330,0850015000500331,833400C183002331,833408C180050330
10013 DATA00E006A023B10020,A331239080810310,0630ACC0A0050330,A33500600A000200
10014 DATA83342CC1A0050330,83342CC500810310,0000001000400000,0000001000400810
10015 DATA087187000B400031,0000233123310000,2B4000B408702300,833400C102000200
10016 DATA0000000033330000,08D08FFD2BF30331,0A000A000A000A00,0000CCCC00000000
10017 DATA0000333300000000,CCCC000000000000,00000000CCCC0000,0500050005000500
10018 DATA00A000A000A000A0,0000000034000A00,0050009000030000,0A00060030000000
10019 DATA500050005000DCCC,9000090000900009,0006006006006000,7333500050005000
10020 DATA333B000A000A000A,0CC0AFF5AFF50330,0000000000003333,8FEDAFFF0BF10010
10021 DATAA000A000A000A000,0000000000830050,9006096006906009,0CC0A005A0050330
10022 DATA08D08D9D01510010,0005000500050005,08D08FFD0BF10010,0050005033730050
10023 DATA9900990099009900,0050005000500050,00000CC62AA00220,BFFF0BFF00BF000B
10024 DATA0000000000000000,FF00FF00FF00FF00,00000000FFFFFFFF,3333000000000000
10025 DATA000000000000CCCC,5000500050005000,9999999999999999,000A000A000A000A
10026 DATA0000000099999999,FFF7FF70F7007000,000F000F000F000F,0050005000730050
10027 DATA0000000000FF00FF,0050005000330000,0000000033500050,000000000000FFFF
10028 DATA0000000000730050,0050005033330000,0000000033730050,0050005033500050
10029 DATAF000F000F000F000,F500F500F500F500,00AF00AF00AF00AF,FFFF000000000000
10030 DATAFFFF333300000000,00000000CCCCFFFF,000A000A000ACCCE,00000000FF00FF00
10031 DATA00FF00FF00000000,0050005033100000,FF00FF0000000000,FF00FF0000FF00FF
10032 DATA08900E400A042330,0000039083B00311,A000A634A4052230,00008334A0040330
10033 DATA00058395A0850311,00008334A3310330,08348EC00A000200,000083952C650CC1
10034 DATAA000A634A0052001,0010025000500210,00010025000509C1,A000A060A6402020
10035 DATA0250005000500230,0000A364A0552011,0000A634A0052001,00008334A0050330
10036 DATA0000A634A9C1A000,000083952C650005,0000A634A0002000,0000833103342330
10037 DATA0A002B300A080030,0000A005A0850311,0000A00524810210,0000A04AA05A0321
10038 DATA0000248106902001,0000A0052C650CC1,000023B106102331,F0F00F0FF0F00F0F
10039 DATAB4B44B4BB4B44B4B,1E1EE1E11E1EE1E1,0006A060A6002000,8004A40522302000